home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
nyan_e2
/
nyane2_n.plp
< prev
next >
Wrap
Text File
|
1993-11-30
|
5KB
|
196 lines
/********** 半自動通信を行う v1.04a用 **********/
%ForumPRC{[fname,ccsset]
%ForumDir logd|{\}|fname;
case(Where1<>{FORUM} || Where2<>fname,{Yes},{GoForum(fname)});
test(,{type({T\n})},{\nFORUM>},);
test(,,{\nFORUM>},{
loop({
select({ 処理を指定してください},9999,{im({No})},
{ 掲 示 板 },{BUL; im({Yes})},
{ 会 議 室 },{CCS(ccsset); im({Yes})},
{ 手動通信 },{
%prompt @tail(@laststr,{\n});
type({SEND ON\n});
wait(30,{TimeOut},{\n}|prompt);
MANUAL;
%prompt @tail(@laststr,{\n});
type({SEND OFF\n});
wait(30,{TimeOut},{\n}|prompt);
im({Yes})},
{ フォーラム選択 },{im({No})},
{ 前に戻る },{im({No})}
);
});
});
};
%BForum{
var f2[500];
var b2[1100];
f2:=forum;
b2:={loop(}|@xc({7b})|
{select({ 処理するフォーラムを選択してください},999,{im({No})}};
loop({
%fnset @head(f2,{/});
%fname @head(fnset,{(});
%ccsset @body(fnset,{(},{)});
case(b2<>{},{Yes},{b2:=b2|{,}});
b2:=b2 |@xc({7b})|{ }|fname|{ }|@xc({7d})|{,}
|@xc({7b})|{ ForumPRC(}
|@xc({7b})|fname|@xc({7d})|{,}
|@xc({7b})|ccsset|@xc({7d})|{); im({Yes}); }
|@xc({7d});
f2:=@body(f2,{/});
im(f2<>{});
});
b2:=b2 |{,{ 前に戻る },{im({No})} ); footnote({}); }
|@xc({7d})|{);};
case(forum={},
{Yes}, {im({});
},{No},{im(b2);
});
};
%BHP{
var hp2[500];
var b2[1100];
hp2:=hp;
b2:={loop(}|@xc({7b})|
{select({ 処理するHPを選択してください},999,{im({No})}};
loop({
%hpset @head(hp2,{,});
%hpid @head(hpset,{/});
%pass @body(hpset,{/},{/});
%name @tail(hpset,{/});
%fname logd|{\HP\}|name;
case(b2<>{},{Yes},{b2:=b2|{,}});
b2:=b2 |@xc({7b})|{ }|name|{ }|@xc({7d})|{,}
|@xc({7b})|{ oneHP(}
|@xc({7b})|hpid|@xc({7d})|{,}
|@xc({7b})|pass|@xc({7d})|{,}
|@xc({7b})|fname|@xc({7d})|{); im({Yes}); }
|@xc({7d});
hp2:=@body(hp2,{,});
im(hp2<>{});
});
b2:=b2 |{,{ 前に戻る },{im({No})} ); footnote({}); }
|@xc({7d})|{);};
case(hp={},
{Yes}, {im({});
},{No},{im(b2);
});
};
%BPatio{
var patio2[200];
var b2[800];
patio2:=patio;
b2:={loop(}|@xc({7b})|
{select({ 処理するパティオを選択してください},999,{im({No})}};
loop({
%patioset @head(patio2,{,});
%patioid @head(patioset,{/});
%pass @body(patioset,{/},{/});
%name @tail(patioset,{/});
%fname logd|{\PATIO\}|name;
case(b2<>{},{Yes},{b2:=b2|{,}});
b2:=b2 |@xc({7b})|{ }|name|{ }|@xc({7d})|{,}
|@xc({7b})|{ onePatio(}
|@xc({7b})|patioid|@xc({7d})|{,}
|@xc({7b})|pass|@xc({7d})|{,}
|@xc({7b})|fname|@xc({7d})|{); im({Yes}); }
|@xc({7d});
patio2:=@body(patio2,{,});
im(patio2<>{});
});
b2:=b2 |{,{ 前に戻る },{im({No})} ); footnote({}); }
|@xc({7d})|{);};
case(patio={},
{Yes}, {im({});
},{No},{im(b2);
});
};
%SelForum @BForum;
%SelHP @BHP;
%SelPatio @BPatio;
%DownLoad{
case(@filechk(IndexFName),{Yes},{
GETPROF; case(next,{Yes},DOWNLIB);
});
};
%UpLoad{
UPTEXT; case(next,{Yes},UPTEXT2);
};
%tour{
Mail;
case(hp<>{},{Yes},HP);
case(patio<>{},{Yes},Patio);
case(forum<>{},{Yes},Forum);
case(rtn2<>{},{Yes},RTN);
};
%Round{
var Old[8];
var OldF[12];
select({ どの処理を行いますか?},9999,{im({Yes});
},{ 巡回受信 (ダウンロード無効) },{tour; Bell; im({Yes});
},{ 巡回後終了(全送受信有効) },{
tour; DownLoad; UpLoad; Logout; im({Yes});
},{ ユーザー設定変更 },{
Old:=id;
OldF:=SetupF;
SETUP;
case(Old<>id,{Yes},{
type({LOG\n}); ReLogin:={Yes}; Login;
});
case(OldF<>SetupF,{Yes},{rtn2:=rtn});
return:={Yes}; im({No});
},{ メニューへ戻る },{im({Yes});
});
};
%LineChk{
var cont[3];
case(@linechck,{Yes},{
cont:={No};
loop({
select({ 回線接続中ですが?},9999,{im({Yes});
},{ ログアウト処理をする },{ status:={ON}; Logout; im({No});
},{ 強制切断して前に戻る },{ discon; im({No});
},{ そのまま前に戻る },{ im({No});
},{ 前に戻るのを中止 },{ cont:={Yes}; im({No});
});
});
});
return:={No};
im(cont);
};
/*
** メイン処理
*/
chat({No});
loop({
select({ 処理を選択してください(右クリックで手動通信)},
9999, { MANUAL; im({Yes})},
{ ログイン },{ Login; im({Yes})},
{ ログアウト },{ Logout; im({Yes})},
{ 巡 回 },{ Round; },
{ メール受信 },{ Mail; im({Yes})},
{ HP受信 },{ SelHP; im({Yes})},
{ パティオ受信 },{ SelPatio; im({Yes})},
{ フォーラム受信 },{ SelForum; im({Yes})},
{ ダウンロード },{ DownLoad; Bell; im({Yes})},
{ 文書送信 },{ UpLoad; im({Yes})},
{ RTN巡回 },{ case(rtn2<>{},{Yes},RTN); im({Yes})},
{ 手動通信 },{ MANUAL; im({Yes})},
{ 外部呼出 },{ EXTERNAL({},{}); im({Yes})},
{ 前に戻る },{ im(@LineChk)}
);
footnote({});
});